Covid-19 Static Maps and Interactive graphs - April 2nd vs. Spetember 26 2020

The following Map diplays the relative number of confirmed cases on April 2nd

## Warning: Removed 54 rows containing missing values (geom_point).

Covid-19 Confirmed Case number as of April 5th, 2020

The following graph gives us an idea where the number of confirmed cases initially were highly concentrated in the US on April 2nd, 2020.

Here is another look at the number of confirmed cases in US as of April 2nd.

## Warning: Transformation introduced infinite values in discrete y-axis

Here is a look at where the number of confirmed cases of Covid were intially the highest on April 2nd.

Now, let’s take a look at the number of deaths throughout the entire world as of septmember 26th

## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
## Warning: `group_by_()` is deprecated as of dplyr 0.7.0.
## Please use `group_by()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

Locations of confirmed cases in the US as of Septemebr 26th, 2020. As you can see, there is a drastically higher number of cases of the right side of the country where population density is higher.

Here is another look at the same graph with relative density of cases represented with color.

mybreaks <- c(1, 100, 1000, 10000, 10000)
ggplot(daily_report, aes(x = Long, y = Lat, size = Confirmed)) +
    borders("state", colour = "white", fill = "grey90") +
    geom_point(aes(x=Long, y=Lat, size=Confirmed, color=Confirmed),stroke=F, alpha=0.7) +
    scale_size_continuous(name="Cases", trans="log", range=c(1,7), 
                        breaks=mybreaks, labels = c("1-99",
                        "100-999", "1,000-9,999", "10,000-99,999", "50,000+")) +
    scale_color_viridis_c(option="viridis",name="Cases", trans= "log", breaks=mybreaks, labels = c("1-99",
                        "100-999", "1,000-9,999", "10,000-99,999", "50,000+"))  +
# Cleaning up the graph
  
  theme_void() + 
    guides( colour = guide_legend()) +
    labs(title = "Anisa Dhana's lagout for COVID-19 Confirmed Cases in the US'") +
    theme(
      legend.position = "bottom",
      text = element_text(color = "#22211d"),
      plot.background = element_rect(fill = "#ffffff", color = NA), 
      panel.background = element_rect(fill = "#ffffff", color = NA), 
      legend.background = element_rect(fill = "#ffffff", color = NA)
    ) +
    coord_fixed(ratio=1.5)
## Warning: Transformation introduced infinite values in discrete y-axis

## Warning: Transformation introduced infinite values in discrete y-axis
## Warning in sqrt(x): NaNs produced
## Warning: Removed 6 rows containing missing values (geom_point).

Here is a map displaying the relative density of confirmed cases in California as of September 26th, 2020

REFERENCES

1

title: “Evolutionary Genomics & Bioinformatics” author: “Jeffrey Blanchard” date: “2/26/2020” output: html_document bibliography: data/references.bib

Application written in R [@RCoreTeam] using the Shiny framework [@Chang2015].

2

title: “Draw Geographical Maps” author: “Eric Anderson” date: “4/03/2018” output: pdf_document bibliography: https://cran.r-project.org/web/packages/maps/maps.pdf

##3 title: “An interactive web-based dashboard to track COVID-19 in real time” author: “Ensheng Dong, Hongru Du, Lauren Gardner” date: “2/19/2020” output: html_document bibliography: https://www.sciencedirect.com/science/article/pii/S1473309920301201?via%3Dihub